home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / cocktail / reuse.lha / reuse / m2c / SYSTEM_.c < prev    next >
C/C++ Source or Header  |  1992-08-18  |  2KB  |  103 lines
  1. /* $Id: SYSTEM_.c,v 1.4 1991/11/21 16:57:59 grosch rel grosch $ */
  2.  
  3. #include <stdio.h>
  4.  
  5. #include "SYSTEM_.h"
  6.  
  7. /*
  8.  *    Implementation of standard functions
  9.  */
  10.  
  11. LONGINT ABSLI
  12. # ifdef __STDC__
  13. (register LONGINT x)
  14. # else
  15. (x) register LONGINT x;
  16. # endif
  17. {
  18.     return (x < 0 ? -x : x);
  19. }
  20.  
  21. LONGREAL ABSLR
  22. # ifdef __STDC__
  23. (register LONGREAL x)
  24. # else
  25. (x) register LONGREAL x;
  26. # endif
  27. {
  28.     return (x < 0 ? -x : x);
  29. }
  30.  
  31. CHAR CAP
  32. # ifdef __STDC__
  33. (register CHAR ch)
  34. # else
  35. (ch) register CHAR ch;
  36. # endif
  37. {
  38.     return (ch >= 'a' && ch <= 'z' ? ch - 'a' + 'A' : ch);
  39. }
  40.  
  41. /*
  42.  *    Implementation of set operators
  43.  */
  44.  
  45. unsigned long SET_RANGE1
  46. # ifdef __STDC__
  47. (register CARDINAL lo, register CARDINAL hi)
  48. # else
  49. (lo, hi) register CARDINAL lo, hi;
  50. # endif
  51. {
  52.     return (lo <= hi ? ~0X0L >> lo << lo + SYSTEM_MaxSet - hi >> SYSTEM_MaxSet - hi : 0X0L);
  53. }
  54.  
  55. /*
  56.  *    Implementation of compiler functions
  57.  */
  58.  
  59. void CaseError
  60. # ifdef __STDC__
  61. (char file[], int line)
  62. # else
  63. (file, line) char file[]; int line;
  64. # endif
  65. {
  66.     (void) fprintf (stderr, "\"%s\", line %1d: case expression out of range\n", file, line);
  67.     exit(1);
  68. }
  69.  
  70. void ReturnError
  71. # ifdef __STDC__
  72. (char file[], int line)
  73. # else
  74. (file, line) char file[]; int line;
  75. # endif
  76. {
  77.     (void) fprintf (stderr, "\"%s\", line %1d: missing return from function\n", file, line);
  78.     exit(1);
  79. }
  80.  
  81. /*
  82.  *    Main program
  83.  */
  84.  
  85. extern void BEGIN_MODULE();
  86.  
  87. int    SYSTEM_argc;
  88. char **SYSTEM_argv;
  89. char **SYSTEM_envp;
  90.  
  91. main(argc, argv, envp)
  92. int argc;
  93. char *argv[], *envp[];
  94. {
  95.   SYSTEM_argc = argc;
  96.   SYSTEM_argv = argv;
  97.   SYSTEM_envp = envp;
  98.  
  99.   BEGIN_MODULE();
  100.  
  101.   exit(0);
  102. }
  103.